PC-Blue - MS DOS Public Domain Library

home *** CD-ROM | disk | FTP | other *** search

/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol194 / kermasm.arc / MSSET.ASM < prev next >

Wrap

Assembly Source File | 1985-11-14 | 42.3 KB | 1,739 lines

; Set command module ; edit history: ; ; [v2.28] ; Added set mode line on/off (from Edgar Butt, Univ. of Md.) ; Decouple handshake and flow control, decouple both from local echo ; Made set commands check for junk after the command (even though ; most of the commands return incorrectly) (from Greg Small, UC Berkeley) ; Be more cautious about running out of space when defining macros. ; Skip leading space in macro definitions ; Print info on macro free space in the show macros command (suggested by ; Greg Small, UC Berkeley) ; Added set autowrap command. ; JD 14 May 1985 ; public setcom, status, stat0, baudprt, escprt, prmptr, dodef public setcpt, docom, shomac, atoi include msdefs.h macmax equ 20 ; max # of macros datas segment public 'datas' extrn comand:byte, flags:byte, trans:byte, cptfcb:byte, takadr:word extrn taklev:byte, inichk:byte, portval:word, curdsk:byte extrn setktab:byte, setkhlp:byte, dtrans:byte kerm db 'Kermit-MS>$' crlf db cr,lf,'$' crlfsp db cr,lf,' ' ; crlf space db '$' eqs db ' = $' ermes1 db cr,lf,'?Too many macros$' ermes2 db cr,lf,'?No room in table for macro$' ermes3 db cr,lf,'?Not confirmed$' ermes4 db cr,lf,'?No room in take stack to expand macro$' ermes5 db cr,lf,'?Not implemented$' erms23 db cr,lf,'?Null input not allowed$' ;[jd] erms24 db cr,lf,'?Capture file already open (use close command)$' ;[jd] erms25 db cr,lf,'?Input must be numeric$' filhlp db ' Input file specification for session logging$' macmsg db ' Specify macro name followed by body of macro $' shmmsg db ' Confirm with carriage return $' prmmsg db ' Enter new prompt string $' sk1msg db ' Decimal scan code for key $' sk2msg db ' Redefinition string for key $' prterr db '?Unrecognized value$' unrec db 'Baud rate is unknown$' defpmp db 'Definition string: $' esctl db 'Control-$' ; [6] nonmsg db 'none$' delmsg db 'delete$' onmsg db 'On' offmsg db 'Off' tmp db ?,'$' sum db 0 min db 0 max db 0 desta dw 0 numerr dw 0 numhlp dw 0 stflg db 0 ; Says if setting SEND or RECEIVE parameter. srtmp db 0 savsp dw 0 temp dw 0 temp1 dw ? ; Temporary storage. temp2 dw ? ; Temporary storage. modst db 'Mode line $' wrpst db 'Auto wrap $' locst db 'Local echo $' belon db 'Ring bell after transfer$' beloff db 'No bell after transfer$' vtemst db 'HEATH-19 emulation $' cm1st db 'Communications port: 1$' cm2st db 'Communications port: 2$' capmsg db 'Session logging $' eofmsg db 'EOF mode: $' flost db 'No flow control used$' floxmsg db 'Flow control: XON/XOFF $' handst db 'Handshake used: $' destst db 'File destination: $' diskst db 'Default disk: $' blokst db 'Block check used: $' ebyst db '8-bit quoting done only on request$' ebvst db '8-bit quoting will be done with: $' sqcst db 'Send cntrl char prefix: $' rqcst db 'Receive cntrl char prefix: $' debon db 'Debug mode $' flwon db 'Warning $' parmsg db 'Parity $' abfdst db 'Discard incomplete file$' abfkst db 'Keep incomplete file$' eolst db 'End-of-line character: $' ssohst db 'Send start-of-packet char: $' rsohst db 'Receive start-of-packet char: $' stimst db 'Send timeout (seconds): $' rtimst db 'Receive timeout (seconds): $' spakst db 'Send packet size: $' rpakst db 'Receive packet size: $' snpdst db '# of send pad chars: $' rnpdst db '# of receive pad chars: $' timmsg db 'Timer $' escmes db 'Escape character: $' b03st db 'Baud rate is 300$' b12st db 'Baud rate is 1200$' b18st db 'Baud rate is 1800$' b24st db 'Baud rate is 2400$' b48st db 'Baud rate is 4800$' b96st db 'Baud rate is 9600$' b04st db 'Baud rate is 45.5$' b05st db 'Baud rate is 50$' b07st db 'Baud rate is 75$' b11st db 'Baud rate is 110$' b13st db 'Baud rate is 134.5$' b15st db 'Baud rate is 150$' b06st db 'Baud rate is 600$' b20st db 'Baud rate is 2000$' b19st db 'Baud rate is 19200$' b38st db 'Baud rate is 38400$' eolhlp db cr,lf,'Decimal number between 0 and 31$' eolerr db cr,lf,'Illegal end-of-line character$' timerr db cr,lf,'Illegal timeout value$' timhlp db cr,lf,'Decimal number between 0 and 94$' soherr db cr,lf,'Illegal start-of-packet character$' quohlp db cr,lf,'Decimal number between 33 and 126$' quoerr db cr,lf,'Illegal control character prefix$' pakerr db cr,lf,'Illegal packet length$' pakhlp db cr,lf,'Decimal number between 20 and 94$' npderr db cr,lf,'Illegal number of pad characters$' npdhlp db cr,lf,'Decimal number between 0 and 99$' paderr db cr,lf,'Illegal pad character$' padhlp db cr,lf,'Decimal number between 0 and 31 or 127$' eschlp db cr,lf,'Enter literal value (ex: Cntrl ]) $' desterr db cr,lf,'Illegal destination device$' dskhlp db cr,lf,'Default disk drive to use, such as A:$' dskerr db cr,lf,'Invalid drive specification$' sethlp db cr,lf db 'AUTOWRAP on│off ' db 'BAUD rate ' db cr,lf db 'BELL ' db 'BLOCK-CHECK-TYPE ' db cr,lf db 'DEBUG ' db 'DEFAULT-DISK ' db cr,lf db 'DESTINATION ' db 'END-OF-LINE character ' db cr,lf db 'EOF CTRL-Z│NOCTRL-Z ' db 'ESCAPE character ' db cr,lf db 'FLOW-CONTROL ' db 'HANDSHAKE ' db cr,lf db 'HEATH19-EMULATION ' db 'INCOMPLETE file ' db cr,lf db 'KEY ' db 'LOCAL-ECHO ' db cr,lf db 'MODE-LINE on│off ' db 'PARITY type ' db cr,lf db 'PORT for i/o ' db 'PROMPT ' db cr,lf db 'RECEIVE parameter ' db 'REMOTE on/off ' db cr,lf db 'SEND parameter ' db 'TAKE-ECHO ' db cr,lf db 'TIMER ' db 'WARNING ' db '$' settab db 27 mkeyw 'AUTOWRAP',autost mkeyw 'BAUD',baudst mkeyw 'BELL',bellst mkeyw 'BLOCK-CHECK-TYPE',blkset mkeyw 'DEBUG',debst mkeyw 'DEFAULT-DISK',dskset mkeyw 'DESTINATION',desset mkeyw 'END-OF-LINE',eolset mkeyw 'EOF',seteof mkeyw 'ESCAPE',escape mkeyw 'FLOW-CONTROL',floset mkeyw 'HANDSHAKE',hndset mkeyw 'HEATH19-EMULATION',vts mkeyw 'INCOMPLETE',abfset mkeyw 'KEY',setkey mkeyw 'LOCAL-ECHO',lcal mkeyw 'MODE-LINE',modl mkeyw 'PARITY',setpar mkeyw 'PORT',coms mkeyw 'PROMPT',promset mkeyw 'RECEIVE',recset mkeyw 'REMOTE',remset mkeyw 'SEND',sendset mkeyw 'SPEED',baudst mkeyw 'TAKE-ECHO',takset mkeyw 'TIMER',timset mkeyw 'WARNING',filwar seoftab db 2 mkeyw 'CTRL-Z',1 mkeyw 'NOCTRL-Z',0 stsrtb db 06 ; Number of options. mkeyw 'PACKET-LENGTH',srpack mkeyw 'PADCHAR',srpad mkeyw 'PADDING',srnpd mkeyw 'QUOTE',srquo mkeyw 'START-OF-PACKET',srsoh mkeyw 'TIMEOUT',srtim ontab db 02H ; Two entries. mkeyw 'OFF',00H mkeyw 'ON',01H destab db 03H ; Three choices. [27c] mkeyw 'DISK',01H mkeyw 'PRINTER',00H mkeyw 'SCREEN',02H ; What type of block check to use. blktab db 03H mkeyw '1-CHARACTER-CHECKSUM',1 mkeyw '2-CHARACTER-CHECKSUM',2 mkeyw '3-CHARACTER-CRC-CCITT',3 ; If abort when receiving files, can keep what we have or discard. [20d] abftab db 02H ; Only two options. mkeyw 'DISCARD',01H mkeyw 'KEEP',00H partab db 05H ; Five entries. [10 start] mkeyw 'EVEN',PAREVN mkeyw 'MARK',PARMRK mkeyw 'NONE',PARNON mkeyw 'ODD',PARODD mkeyw 'SPACE',PARSPC flotab db 2 mkeyw 'NONE',flonon mkeyw 'XON/XOFF',floxon hndtab db 7 mkeyw 'BELL',bell mkeyw 'CR',cr mkeyw 'ESC',esc mkeyw 'LF',lf mkeyw 'NONE',0 mkeyw 'XOFF',xoff mkeyw 'XON',xon BStab db 02H ;Two entries [19c start] mkeyw 'BACKSPACE',00H mkeyw 'DELETE',01H bdtab db 010H ; 16 entries mkeyw '110',b0110 mkeyw '1200',b1200 mkeyw '134.5',b01345 mkeyw '150',b0150 mkeyw '1800',b1800 mkeyw '19200',b19200 mkeyw '2000',b2000 mkeyw '2400',b2400 mkeyw '300',b0300 mkeyw '38400',b38400 mkeyw '45.5',b00455 mkeyw '4800',b4800 mkeyw '50',b0050 mkeyw '600',b0600 mkeyw '75',b0075 mkeyw '9600',b9600 ten dw 10 ; multiplier for setatoi rdbuf db 80H DUP(?) prm db 30 dup(0) ; Buffer for new prompt. prmptr dw kerm ; pointer to prompt defkw db 256 dup (?) ; room for macro name and body macnum dw 0 ; one macro yet mactab dw ibmmac ; default ibm mac is macro 0 dw macmax dup (?) ; empty macro table defptr dw macbuf macbuf db macmax*100 dup (?) ; buffer for macro defs macbend label byte ; marker for end of macro buffer rmlft db macmax*10 ; space left in set table mcctab db 1 ; macro name table, one initially mkeyw 'IBM',0 ; macro # 0 db macmax*10 dup (?) ; room for rest of macro names shom9a db cr,lf,'Free space: name entries $' shom9b db ', name characters $' shom9c db ', body characters $' ibmmac db imlen-1 db 'set timer on',cr,'set parity mark',cr db 'set local-echo on',cr,'set handshake xon',cr db 'set flow none',cr imlen equ $-ibmmac ; structure for status information stent struc sttyp dw ? ; type (actually routine to call) msg dw ? ; message to print val2 dw ? ; needed value: another message, or tbl addr tstcel dw ? ; address of cell to test, in data segment basval dw 0 ; base value, if non-zero stent ends sttab stent <onoff,vtemst,,flags.vtflg> stent <onoff,locst,,ecoflg,portval> stent <onoff,modst,,flags.modflg> stent <onoff,wrpst,,flags.wrpflg> stent <baudprt> stent <srchkw,parmsg,partab,parflg,portval> stent <onechr,escmes,,trans.escchr> stent <onoff,capmsg,,flags.capflg> stent <msg2,flost,floxmsg,floflg,portval> stent <prhnd> stent <srchkw,destst,destab,flags.destflg> stent <drnum,diskst,,curdsk> stent <onoff,flwon,,flags.flwflg> stent <msg2,beloff,belon,flags.belflg> stent <msg2,abfkst,abfdst,flags.abfflg> stent <srchkw,eofmsg,seoftab,flags.eofcz> stent <onechr,sqcst,,trans.rquote> stent <onechr,rqcst,,dtrans.squote> stent <onechr,rsohst,,trans.rsoh> stent <onechr,ssohst,,trans.ssoh> stent <stnum,rtimst,,trans.rtime> stent <stnum,stimst,,dtrans.stime> stent <stnum,rpakst,,trans.rpsiz> stent <stnum,spakst,,trans.spsiz> stent <stnum,snpdst,,dtrans.spad> stent <stnum,rnpdst,,trans.rpad> stent <onoff,timmsg,,flags.timflg> stent <pr8bit> stent <onechr,eolst,,dtrans.seol> stent <srchkw,blokst,blktab,trans.chklen> stent <msg2,cm2st,cm1st,flags.comflg> stent <onoff,debon,,flags.debug> dw 0 ; end of table sttbuf db 2000 dup (?) ; big buffer for status msg. datas ends code segment public extrn cmcfrm:near, prserr:near, comnd:near, dobaud:near extrn cmgtch:near, repars:near, coms:near, vts:near, defkey:near extrn inicpt:near, prompt:near, nout:near, prtscr:near extrn prkey:near, getbaud:near assume cs:code,ds:datas ; This is the SET command. SETCOM PROC NEAR mov dx,offset settab ; Parse a keyword from the set table. mov bx,offset sethlp mov ah,cmkey call comnd jmp r call bx jmp setco2 nop setco1: jmp rskp setco2: cmp comand.cmstat,cmcfm ; did they parse a confirm at the end? je setco1 ret SETCOM endp docom proc near mov dx,offset mcctab mov bx,0 mov ah,cmkey call comnd jmp r push bx mov ah,cmcfm call comnd pop bx ret nop pop bx cmp taklev,maxtak ; room in take level? jl docom2 ; yes, continue mov dx,offset ermes4 ; else complain jmp reterr docom2: inc taklev ; increment take level (overflow) add takadr,size takinfo shl bx,1 mov si,mactab[bx] ; point to macro mov cl,[si] ; get size from macro mov ch,0 inc si ; point to actual definition mov bx,takadr ; point to current buffer mov [bx].takfcb,0ffh ; flag as a macro mov [bx].takptr,si ; point to beginning of def mov [bx].takchl,cl ; # of chars left in buffer mov [bx].takcnt,cx ; and in definition mov word ptr [bx].takcnt+2,0 ; zero high order... jmp rskp docom endp ; the define command dodef proc near cmp macnum,macmax ; get current macro count jl dode1 ; no, go on mov dx,offset ermes1 ; else complain jmp reterr ; and return dode1: mov ah,cmtxt mov bx,offset defkw+1 ; buffer for keyword mov dx,offset macmsg call comnd ret nop nop cmp ah,0 jne dode2 ret dode1a: mov dx,offset erms23 ; null input not allowed jmp reterr dode2: mov bx,ds ; address data segment mov es,bx cld ; strings go forward mov cl,ah mov ch,0 ; length mov di,offset defkw+1 ; pointer to keyword mov ah,0 ; # of chars in keyword jcxz dode1a ; empty keyword, complain mov al,' ' repe scasb ; skip leading blanks je dode1a ; all blanks, lea si,[di-1] ; back up to non-blank inc cx ; going to look at it again... ; uppercase keyword, look for end dode3: lodsb ; get a byte cmp al,'a' jb dode4 cmp al,'z' ja dode4 sub al,'a'-'A' mov [si-1],al ; uppercase if necessary dode4: inc ah ; increment word count cmp al,' ' ; is it the break character? loopne dode3 ; no, loop thru rest of word dode5: jne dode6 ; ended with break char? dec ah ; yes, don't count in length dode6: mov defkw,ah ; store length in front of it add ah,4 ; add keyword overhead length cmp ah,rmlft ; will it fit in buffer? jb dode7 ; yes, keep going mov dx,offset ermes2 ; else complain jmp reterr dode7: mov bx,defptr ; free def space add bx,cx ; add length of new def'n cmp bx,offset macbend ; past end? jb dode7a ; no, ok to add it mov dx,offset ermes2 jmp reterr ; won't fit, complain dode7a: sub rmlft,ah ; subtract space used in tbl mov di,defptr ; pointer to free space inc macnum ; count the macro mov bx,macnum shl bx,1 ; double for word idx!!! mov mactab[bx],di ; install into table mov [di],cl ; store length inc di jcxz dode10 ; no copy if 0 length ; copy definition into buffer, changing commas to crs dode8: lodsb ; get a byte cmp al,',' ; comma? jne dode9 ; no, keep going mov al,cr ; else replace with cr dode9: stosb loop dode8 ; keep copying dode10: mov defptr,di ; update free ptr mov bl,defkw mov bh,0 lea di,defkw+1[bx] ; end of keyword mov al,'$' stosb mov ax,macnum stosb ; low-order mov al,0 ; high-order is always 0. stosb ; now install into table mov bx,offset mcctab mov dx,offset defkw call addtab jmp rskp dodef endp ; add an entry to a keyword table ; enter with bx/ table address, dx/ ptr to new entry ; no check is made to see if the entry fits in the table. addtab PROC NEAR push es cld mov ax,ds mov es,ax ; address data segment mov bp,bx ; remember where tbl starts mov cl,[bx] ; pick up length of table mov ch,0 inc bx ; point to actual table... addta1: push cx ; preserve count mov si,dx ; point to entry lodsb ; get length of new entry mov cl,[bx] ; and length of table entry... mov ah,0 ; assume they're the same size cmp al,cl ; are they the same? lahf ; remember result of comparison... jae addta2 ; is new smaller? no, use table length mov cl,al ; else use length of new entry addta2: mov ch,0 lea di,[bx+1] ; point to actual keyword repe cmpsb ; compare strings pop cx ; restore count jb addta4 ; below, insert before this one jne addta3 ; not below or same, keep going sahf ; same. get back result of length comparison jb addta4 ; if new len is smaller, insert here jne addta3 ; if not same size, keep going mov si,bx ; else this is where entry goes jmp short addta6 ; no insertion required... addta3: mov al,[bx] mov ah,0 add bx,ax ; skip this entry add bx,4 ; len + $ + value... loop addta1 ; and keep looking addta4: mov si,bx ; this is first location to move mov di,bx inc ds:byte ptr [bp] ; remember we're adding one... jcxz addta6 ; no more entries, forget this stuff mov bh,0 ; this stays 0 addta5: mov bl,[di] ; get length lea di,[bx+di+4] ; end is origin + length + 4 for len, $, value loop addta5 ; loop thru remaining keywords mov cx,di sub cx,si ; compute # of bytes to move push si ; preserve loc for new entry mov si,di ; first to move is last dec si ; minus one mov di,dx ; new entry mov bl,[di] ; get length lea di,[bx+si+4] ; dest is source + length of new + 4 std ; move backwards rep movsb ; move the table down cld ; put flag back pop si addta6: mov di,si ; this is where new entry goes mov si,dx ; this is where it comes from mov cl,[si] ; length mov ch,0 add cx,4 ; overhead bytes rep movsb ; stick it in pop es ret ; and return addtab endp ; Show defined macros. SHOMAC PROC NEAR mov ah,cmtxt mov bx,offset rdbuf mov dx,offset shmmsg call comnd jmp r cmp ah,0 ; Bare CR means show all macros. jne shom2 ; No, he wants specific macro expanded. mov si,offset mcctab ; Table of macro names. lodsb mov cl,al ; Number of macro entries. mov ch,0 shom0: jcxz shom1 ; Done if none left to display. lodsb ; Length of macro name. push ax ; Don't forget it. mov ah,prstr mov dx,offset crlfsp ; Go to new line. int dos mov dx,si ; Print macro name. int dos mov dx,offset eqs int dos pop ax mov ah,0 add si,ax ; Skip over name. inc si ; Get to macro number. mov bx,[si] ; Pick it up. call expmac ; Expand the macro. dec cx add si,2 ; Skip over macro number. jmp shom0 ; And do the rest. shom1: mov ah,prstr mov dx,offset shom9a ; free space: name entries int dos mov ax,macmax sub ax,macnum ; compute # of free name entries call nout mov ah,prstr mov dx,offset shom9b ; name characters int dos mov al,rmlft mov ah,0 call nout mov ah,prstr mov dx,offset shom9c ; body characters int dos mov ax,offset macbend sub ax,defptr call nout mov ah,prstr mov dx,offset crlf int dos jmp rskp shom2: mov ah,prstr mov dx,offset ermes3 int dos jmp rskp SHOMAC ENDP ; Expand the macro, called with BX/macro number. expmac: push si push cx mov si,offset mactab ; Table of address expansions. shl bx,1 ; Double and use as index into table. mov si,[si+bx] ; Get address of expansion in question. mov ax,si ; Address of string. inc ax ; Don't print length. mov cl,[si] ; Length of string. mov ch,0 call prkey ; Print it. pop cx pop si ret seteof proc near mov ah,cmkey mov bx,0 mov dx,offset seoftab call comnd jmp r push bx mov ah,cmcfm call comnd jmp seteo1 ; error return... nop pop bx mov flags.eofcz,bl ; set value jmp rskp ; and return seteo1: pop bx ret seteof endp ; This is the ESCAPE character SET subcommand. [6 start] ESCAPE PROC NEAR call cmgtch ; Get a char. cmp ah,0 jns es1 ; Terminator or no? and ah,7FH ; Turn off minus bit. cmp ah,'?' jne es0 mov dx,offset eschlp mov ah,prstr int dos mov dx,offset crlf int dos mov dx,comand.cmprmp int dos mov bx,comand.cmdptr mov al,'$' mov [bx],al mov dx,offset comand.cmdbuf int dos dec comand.cmcptr ; Ignore dollar sign. dec comand.cmccnt mov comand.cmaflg,0 jmp repars es0: mov ah,prstr mov dx,offset ermes3 int dos ret es1: mov temp,ax mov ah,cmcfm call comnd jmp es0 nop ; Take up 3 bytes. mov ax,temp mov trans.escchr,ah ; Save new value. ret ESCAPE ENDP ; [6 end] ; This is the End-of-line character SET subcommand. EOLSET PROC NEAR mov min,0 mov max,1FH mov sum,0 mov tmp,10 mov temp1,0 mov desta,offset dtrans.seol mov numhlp,offset eolhlp mov numerr,offset eolerr jmp num0 ; Common routine for parsing numerical input. EOLSET ENDP num0: call cmgtch ; Get the first char into AH. cmp ah,0 js num1 cmp ah,'0' jl num1 cmp ah,'9' ja num1 mov temp1,1 sub ah,30H mov dl,ah mov al,sum mul tmp add al,dl mov sum,al jmp num0 num1: and ah,7FH cmp ah,CR jne num2 cmp temp1,0 je num21 mov al,sum cmp al,min jl num3 cmp al,max jg num3 mov bx,desta mov [bx],al ret num2: cmp ah,03FH ; Question mark? je num4 num21: mov ah,prstr mov dx,offset ermes3 int dos jmp prserr num3: mov ah,prstr mov dx,numerr int dos jmp prserr num4: mov ah,prstr mov dx,numhlp int dos mov dx,offset crlf int dos mov dx,comand.cmprmp int dos mov bx,comand.cmdptr mov al,'$' mov [bx],al mov dx,offset comand.cmdbuf int dos dec comand.cmcptr ; Don't count the dollar sign. dec comand.cmccnt ; Or the question mark. mov comand.cmaflg,0 ; Check for more input. jmp repars ; This is the LOCAL echo SET subcommand. LCAL PROC NEAR mov dx,offset ontab mov bx,0 mov ah,cmkey call comnd jmp r push bx ; Save the parsed value. mov ah,cmcfm call comnd ; Get a confirm. jmp lcl0 ; Didn't get a confirm. nop pop bx mov si,portval mov [si].ecoflg,bl ; Set the local echo flag. ret lcl0: pop bx ret LCAL ENDP ; SET mode line on or off MODL PROC NEAR mov dx,offset ontab ; parse an on or off mov bx,0 ; no special help... mov ah,cmkey call comnd jmp r push bx ; save value mov ah,cmcfm call comnd pop bx ; isn't this horrible? ret nop pop bx mov flags.modflg,bl ; set flag appropriately jmp rskp ; and return MODL ENDP FILWAR PROC NEAR mov dx,offset ontab mov bx,0 mov ah,cmkey call comnd jmp r push bx mov ah,cmcfm call comnd ; Get a confirm. jmp fil0 ; Didn't get a confirm. nop pop bx mov flags.flwflg,bl ; Set the filewarning flag. ret fil0: pop bx ret FILWAR ENDP ; This is the SET aborted-file command. [20d] ABFSET PROC NEAR mov dx,offset abftab mov bx,0 mov ah,cmkey call comnd jmp r push bx mov ah,cmcfm call comnd ; Get a confirm. jmp abf0 ; Didn't get a confirm. nop pop bx mov flags.abfflg,bl ; Set the aborted file flag. ret abf0: pop bx ret ABFSET ENDP ; This is the SET Parity command. [10 start] SETPAR PROC NEAR mov dx,offset partab mov bx,0 mov ah,cmkey call comnd jmp r push bx mov ah,cmcfm call comnd ; Get a confirm. jmp par0 ; Didn't get a confirm. nop pop bx mov si,portval mov [si].parflg,bl ; Set the parity flag. cmp bl,parnon ; Resetting parity to none? [21b] je setp0 ; Yes, reset 8 bit quote character. [21b] mov trans.ebquot,dqbin ; Else, do quoting. [21b] ret ; That's it. [21b] setp0: mov trans.ebquot,'Y' ; If none, say will quote upon request. [21b] ret par0: pop bx ret SETPAR ENDP ; [10 end] ; Sets debugging mode on and off. DEBST PROC NEAR mov dx,offset ontab mov bx,0 mov ah,cmkey call comnd jmp r push bx mov ah,cmcfm call comnd ; Get a confirm. jmp deb0 ; Didn't get a confirm. nop pop bx mov flags.debug,bl ; Set the DEBUG flag. ret deb0: pop bx ret DEBST ENDP ; Turn bell on or off. [17a start] BELLST PROC NEAR mov dx,offset ontab mov bx,0 mov ah,cmkey call comnd jmp r push bx mov ah,cmcfm call comnd jmp bel0 nop pop bx mov flags.belflg,bl ret bel0: pop bx ret BELLST ENDP ; [17a end] ; Toggle echo'ing of TAKE file to be either ON or OFF. TAKSET PROC NEAR mov dx,offset ontab mov bx,0 mov ah,cmkey call comnd jmp r push bx mov ah,cmcfm call comnd jmp tak0 nop pop bx mov flags.takflg,bl ret tak0: pop bx ret TAKSET ENDP ; [17a end] ; Set timer ON/OFF during file transfer. TIMSET PROC NEAR mov dx,offset ontab mov bx,0 mov ah,cmkey call comnd jmp r push bx mov ah,cmcfm call comnd jmp tim0 nop pop bx mov flags.timflg,bl ret tim0: pop bx ret TIMSET ENDP ; [17a end] ; Allow user to change the "Kermit-MS>" prompt. PROMSET PROC NEAR mov ah,cmtxt mov bx,offset prm ; Read in the prompt. mov dx,offset prmmsg call comnd jmp r cmp ah,0 ; Just a bare CR? jne prom0 mov ax,offset kerm jmp prom1 prom0: mov byte ptr [bx],'$' ; End of string. mov ax,offset prm prom1: mov prmptr,ax ; Remember it. jmp rskp PROMSET ENDP ; Set Flow-Control subcommand. FLOSET PROC NEAR mov dx,offset flotab xor bx,bx mov ah,cmkey call comnd jmp r push bx mov ah,cmcfm call comnd ; Get a confirm. jmp flox ; Didn't get a confirm. nop pop bx mov si,portval mov [si].flowc,bx ; Flow control value. cmp bx,0 ; Turning it off? je flo0 ; Yes. mov [si].floflg,1 ; Say we're doing flow control. ret flo0: mov [si].floflg,bl ; Say we're not doing flow control. ret flox: pop bx ret FLOSET ENDP ; Set Handshake subcommand. HNDSET PROC NEAR mov dx,offset hndtab mov bx,0 mov ah,cmkey call comnd jmp r push bx mov ah,cmcfm call comnd ; Get a confirm. jmp hndx ; Didn't get a confirm. nop pop bx mov si,portval cmp bl,0 ; Setting handshake off? je hnd0 ; Yes. mov [si].hndflg,1 ; And turn on handshaking. mov [si].hands,bl ; Use this char as the handshake. ret hnd0: mov [si].hndflg,0 ; No handshaking. ret hndx: pop bx ret HNDSET ENDP ; Set block check type sub-command. BLKSET PROC NEAR mov dx,offset blktab mov bx,0 mov ah,cmkey call comnd jmp r push bx mov ah,cmcfm call comnd ; Get a confirm. jmp blk0 ; Didn't get a confirm. nop pop bx mov trans.chklen,bl ; Use this char as the handshake. mov inichk,bl ; Save here too. ret blk0: pop bx ret BLKSET ENDP ; Set destination for incoming file. DESSET PROC NEAR mov dx,offset destab mov bx,0 mov ah,cmkey call comnd jmp r push bx mov ah,cmcfm call comnd ; Get a confirm. jmp des0 ; Didn't get a confirm. nop pop bx mov flags.destflg,bl ; Set the destination flag. cmp bl,2 ; Is dest the screen? [27c] jne desa ; No, then done. [27c] mov flags.xflg,1 ; Remember it here. [27c] ret desa: mov flags.xflg,0 ; Don't write to screem [27c] ret des0: pop bx ret DESSET ENDP ; Set default disk for sending/receiving, etc. DSKSET PROC NEAR mov comand.cmcr,1 ; Don't want filename specified. mov ah,cmifi ; Parse for drive specification. mov dx,offset rdbuf ; Read into handy buffer. mov bx,offset dskhlp ; Text of help message. call comnd jmp r mov ah,cmcfm call comnd jmp r cmp flags.nmoflg,0 ; Fail if specified file name. je dsk1 dsk0: mov ah,prstr mov dx,offset dskerr ; Illegal drive specification. int dos ret dsk1: mov bx,offset rdbuf mov ah,[bx] ; Get the drive they said to use. cmp ah,0 ; Did they type a bare CR? je dsk0 ; Yes, complain. mov curdsk,ah ; And remember it. dec ah mov dl,ah mov ah,seldsk int dos ret DSKSET ENDP ; set autowrap on or off autost proc near mov ah,cmkey mov dx,offset ontab mov bx,0 ; use canned help call comnd ret ; uh oh nop nop ; isn't this silly? push bx ; save parsed value mov ah,cmcfm call comnd pop bx ret nop ; fail return pop bx ; get return value back mov flags.wrpflg,bl ; set flag correctly ret ; and return autost endp ; This function sets the baud rate. BAUDST PROC NEAR mov dx,offset bdtab mov bx,0 mov ah,cmkey call comnd jmp r push bx mov ah,cmcfm call comnd ; Get a confirm. jmp bau0 ; Didn't get one. nop pop bx mov si,portval mov ax,[si].baud ; Remember original value. [25] mov [si].baud,bx ; Set the baud rate. call dobaud ; Use common code. [19a] ret bau0: pop bx ret BAUDST ENDP SENDSET PROC NEAR mov stflg,'S' ; Setting SEND parameter sndst0: mov dx,offset stsrtb ; Parse a keyword. mov bx,0 mov ah,cmkey call comnd jmp r call bx nop nop nop jmp rskp SENDSET ENDP recset: mov stflg,'R' ; Setting RECEIVE paramter. jmp sndst0 remset proc near mov ah,cmkey mov dx,offset ontab mov bx,0 call comnd jmp r push bx ; save parsed value mov ah,cmcfm call comnd ; confirm pop bx ret ; return on failure nop pop bx mov flags.remflg,bl ; set remote setting jmp rskp ; and return remset endp ; Set send/receive start-of-header. srsoh: mov min,0 mov max,1FH mov sum,0 mov tmp,10 mov desta,offset trans.ssoh ; Assume SEND. cmp stflg,'S' ; Setting SEND paramter? je srsoh0 mov desta,offset trans.rsoh srsoh0: mov numhlp,offset eolhlp ; Reuse help message. mov numerr,offset soherr mov temp1,0 jmp num0 ; Common routine for parsing numerical input. ; Set send/receive timeout. srtim: mov min,0 mov max,94 mov sum,0 mov tmp,10 mov desta,offset dtrans.stime ; Assume SEND. cmp stflg,'S' ; Setting SEND paramter? je srtim0 mov desta,offset trans.rtime srtim0: mov numhlp,offset timhlp ; Reuse help message. mov numerr,offset timerr mov temp1,0 jmp num0 ; Common routine for parsing numerical input. ; Set send/receive packet length. srpack: mov min,20 mov max,94 mov sum,0 mov tmp,10 mov desta,offset trans.spsiz cmp stflg,'S' ; Setting SEND paramter? je srpak0 mov desta,offset trans.rpsiz srpak0: mov numhlp,offset pakhlp mov numerr,offset pakerr mov temp1,0 jmp num0 ; Parse numerical input. ; Set send/receive number of padding characters. srnpd: mov min,0 mov max,99 mov sum,0 mov tmp,10 mov desta,offset dtrans.spad cmp stflg,'S' ; Setting SEND paramter? je srnpd0 mov desta,offset trans.rpad srnpd0: mov numhlp,offset npdhlp mov numerr,offset npderr mov temp1,0 jmp num0 ; Parse numerical input. ; Set send/receive padding character. srpad: mov min,0 mov max,127 mov sum,0 mov tmp,10 mov srtmp,0FFH ; Haven't seen anything yet. mov desta,offset srtmp mov numhlp,offset padhlp mov numerr,offset paderr mov temp1,0 mov savsp,sp call num0 ; Parse numerical input. mov sp,savsp mov temp,offset trans.spadch cmp stflg,'S' je srpad1 mov temp,offset trans.rpadch srpad1: mov bx,offset srtmp mov ah,[bx] cmp ah,0FFH ; Did they end up not doing the command? je srpad3 cmp ah,127 ; This is allowed. je srpad2 cmp ah,32 jb srpad2 ; Between 0 and 31 is OK too. mov ah,prstr mov dx,offset paderr int dos ret srpad2: mov bx,temp ; Set the real pad char. mov [bx],ah srpad3: ret ; Set send/receive control character prefix. srquo: mov min,33 mov max,126 mov sum,0 mov tmp,10 mov desta,offset trans.rquote ; Used for outgoing packets. cmp stflg,'S' ; Setting outgoing quote char? je srquo0 mov desta,offset dtrans.squote ; For incoming quote char. srquo0: mov numhlp,offset quohlp mov numerr,offset quoerr mov temp1,0 jmp num0 ; Parse numerical input. ; This is the STATUS command. STATUS PROC NEAR mov ah,cmcfm call comnd ; Get a confirm. jmp r ; Didn't get a confirm. mov dx,offset crlf mov ah,prstr int dos ; initial crlf call stat0 mov cx,di ; End of buffer sub cx,ax ; Get length of buffer. dec cx ; Account for null. mov di,ax ; Buffer pointer. call prtscr ; Put data onto the screen. jmp rskp STATUS ENDP ; Return a pointer to status message in AX, ptr to end in DI. STAT0 PROC NEAR push es mov ax,ds mov es,ax ; address data segment cld ; make sure strings go the right way mov di,offset sttbuf ; point to destination buffer mov bx,offset sttab ; table to control printing mov al,' ' ; start with a space stosb ; in the buffer mov ax,0 ; need-new-line flag stat01: cmp word ptr [bx],0 ; end of table? je stat02 ; yes, exit routine push bx push di ; remember important values push ax call [bx].sttyp ; call the appropriate routine pop ax pop cx ; return buffer value pop bx ; and ptr or ax,ax ; do we need a newline? jne stat03 ; yes, go put one in sub cx,di ; else see how many columns they used add cx,40 ; this is where we'd like to be ; if cx is negative here, we have a problem... mov al,' ' rep stosb ; add right # of spaces mov ax,1 ; note we need a newline next time jmp short stat04 ; and keep looping around stat03: mov cx,3 mov si,offset crlfsp rep movsb ; append crlf to string xor ax,ax ; reset newline flag stat04: add bx,size stent ; advance to next one jmp stat01 stat02: mov al,0 ; end buffer stosb mov ax,offset sttbuf pop es ; restore this ret ; and return STAT0 ENDP ; handler routines for status ; all are called with di/ destination buffer, bx/ stat ptr. They ; can change any register but the segment registers, must update ; di to the end of the buffer. ; copy the message into the buffer stmsg proc near mov si,[bx].msg ; get message address stms1: lodsb ; get a byte stosb ; drop it off cmp al,'$' ; end of message? jne stms1 ; no, keep going dec di ; else back up ptr ret ; and return stmsg endp ; get address of test value in stent. Returns address in si stval proc near mov si,[bx].basval ; get base value cmp si,0 ; any there? je stva1 ; no, keep going mov si,[si] ; yes, use as base address stva1: add si,[bx].tstcel ; add offset of test cell ret ; and return it stval endp ; print a single character onechr proc near call stmsg ; copy message part first call stval ; pick up test value address mov al,[si] ; this is char to print cmp al,' ' ; printable? jae onech1 ; yes, keep going add al,64 ; make printable. mov byte ptr [di],'¬' inc di ; note ctrl char onech1: stosb ; drop char off ret ; and return onechr endp ; numeric field... stnum proc near call stmsg ; copy message call stval ; pick up value address mov al,[si] ; get value mov ah,0 ; high order is 0 call outnum ; put number into buffer ret ; and return stnum endp ; translate the number in ax... outnum proc near cwd mov bx,10 div bx ; divide to get digit push dx ; save remainder digit or ax,ax ; test quotient jz outnu1 ; zero, no more of number call outnum ; else call for rest of number outnu1: pop ax ; get digit back add al,'0' ; make printable stosb ; drop it off ret ; and return outnum endp ; on/off field onoff proc near call stmsg ; copy message call stval ; get value cell mov al,[si] mov si,offset onmsg mov cx,2 ; assume 2-byte 'ON' message or al,al ; test value jnz onof1 ; on, have right msg mov si,offset offmsg mov cx,3 onof1: rep movsb ; copy right message in ret ; and return onoff endp ; print first message if false, second if true msg2 proc near call stval ; get value cell mov al,[si] mov si,[bx].msg ; assume off or al,al ; is it? jz msg21 ; yes, continue mov si,[bx].val2 ; else use alternate message msg21: jmp stms1 ; handle copy and return msg2 endp ; search a keyword table for a value, print that value srchkw proc near call stmsg ; first print message call stval mov al,[si] ; get value to hunt for mov ah,0 ; high order is 0 mov bx,[bx].val2 ; this is table address jmp prttab ; and look in table. srchkw endp ; Print the drive name. drnum proc near call stmsg ; copy message part first call stval ; pick up test value address mov al,[si] ; this is char to print add al,'@' ; Make it printable. stosb mov byte ptr [di],':' inc di ; end with a colon ret ; and return drnum endp ; print 8-bit quoting pr8bit proc near mov bl,trans.ebquot ; get quote char mov si,offset ebyst ; assume no 8-bit quoting cmp bl,'Y' ; on request only? je pr8bi1 ; yes, continue mov si,offset ebvst ; else variable pr8bi1: call stms1 ; copy message in cmp bl,'Y' ; not doing it? je pr8bi2 ; no, forget this part mov [di],bl ; else drop off char too inc di pr8bi2: ret ; and return pr8bit endp ; Print the handshake. prhnd: mov si,offset handst ; copy in initial message call stms1 mov si,offset nonmsg ; assume no handshake mov bx,portval cmp [bx].hndflg,0 ; Is handshaking in effect? jne prh0 ; Yes, print what we're using. jmp stms1 ; no, say so and return prh0: mov al,'¬' ; Doing handshaking with control char. stosb mov al,[bx].hands add al,40H ; Make printable. stosb ; put in buffer ret ; and return ; Print the pad character in AL. prpad: cmp al,127 ; Are they using a delete? jne prpad0 mov ah,prstr mov dx,offset delmsg int dos ret prpad0: mov dl,'¬' mov ah,conout push ax int dos pop ax mov dl,al add dl,40H ; Make printable. int dos ret ; Print value from table. BX/address of table, AL/value of variable. prttab: mov cl,[bx] ; Number of entries in our table. inc bx ; Point to the data. prtt0: mov dl,[bx] ; Length of keyword. inc bx ; Point to keyword. mov dh,0 inc dx ; Account for "$" in table. mov si,dx ; Put to index register. cmp ax,[bx+si] ; Is this the one? je prtt1 add bx,dx ; Go to end of keyword. add bx,2 ; Point to next keyword. dec cl ; Any more keywords to check? jnz prtt0 ; Yes, go to it. mov bx,offset prterr prtt1: mov si,bx prtt2: jmp stms1 ; copy in message ret ; and return ; This routine prints out the escape character in readable format. ESCPRT PROC NEAR ; [6 start] mov dl,trans.escchr cmp dl,' ' jge escpr2 push dx mov ah,prstr mov dx,offset esctl int dos pop dx add dl,040H ; Make it printable. escpr2: mov ah,conout int dos ret ESCPRT ENDP ; [6 end] ; Print information on the baud rate. [19a] BAUDPRT PROC NEAR call getbaud ; read baud rate first mov si,portval mov ax,[si].baud mov dx,offset b48st ; Assume 4800 baud. cmp ax,B4800 jnz bdprt0 jmp bdprt2 bdprt0: mov dx,offset b12st cmp ax,B1200 jnz bdprt1 jmp bdprt2 bdprt1: mov dx,offset b18st cmp ax,B1800 jz bdprt2 mov dx,offset b24st cmp ax,B2400 jz bdprt2 mov dx,offset b96st cmp ax,B9600 jz bdprt2 mov dx,offset b03st cmp ax,B0300 jz bdprt2 mov dx,offset b04st cmp ax,B00455 jz bdprt2 mov dx,offset b05st cmp ax,B0050 jz bdprt2 mov dx,offset b07st cmp ax,b0075 jz bdprt2 mov dx,offset b11st cmp ax,B0110 jz bdprt2 mov dx,offset b13st cmp ax,B01345 jz bdprt2 mov dx,offset b15st cmp ax,B0150 jz bdprt2 mov dx,offset b06st cmp ax,B0600 je bdprt2 mov dx,offset b20st cmp ax,B2000 jz bdprt2 mov dx,offset b19st cmp ax,B19200 jz bdprt2 mov dx,offset b38st cmp ax,B38400 jz bdprt2 mov dx,offset unrec ; Unrecognized baud rate. bdprt2: mov si,dx ; this is baud rate bdprt3: jmp stms1 ; go copy it and return BAUDPRT ENDP setkey proc near cmp setktab,0 ; any table? jne setk0 ; yes, use it mov dx,offset ermes5 jmp reterr ; else print error message setk0: mov dx,offset setktab ; set key options mov bx,offset setkhlp mov ah,cmkey call comnd jmp r cmp bx,-1 ; do we have scan code? jne setk1 ; yes, skip this part mov ah,cmtxt mov bx,offset rdbuf ; handy buffer mov dx,offset sk1msg call comnd jmp r ; fail return mov si,offset rdbuf ; this is parsed number call atoi ; Convert input to real number. jmp reterr ; No good. mov bx,ax ; put accumulation into bl setat3: cmp bx,0 ; is scan code 0? jne setk2 ; no, have scan code, look for def setk1: push bx ; save our scan code mov ah,cmcfm call comnd jmp short setkx ; no good, pop bx and return nop ; waste a byte pop bx ; scan code is in bl, ask for string part setk2: push bx mov dx,offset defpmp call prompt mov ah,cmtxt mov bx,offset rdbuf mov dx,offset sk2msg call comnd ; read the definition jmp short setkx ; pop bx and fail return nop mov cl,ah mov ch,0 ; set up length of definition pop ax ; get scan code back mov si,offset rdbuf ; point to definition call defkey ; go define the key jmp rskp ; and return setkx: pop bx ; pop junk off stack ret ; and return setkey endp ; Convert input in buffer pointed to by SI to real number which is returned ; in AX. Return on failure, return skip on success. ATOI PROC NEAR mov cl,ah ; Number of chars of input. mov ch,0 ; size of string jcxz atoi4 ; Fail on no input. mov ax,0 ; init sum mov bh,0 ; high order of this stays 0. mov tmp,0 ; No input yet. [27f] atoi0: xchg al,bl ; save current sum lodsb ; grab a byte cmp al,' ' ; leading space? jne atoi1 ; no, continue xchg al,bl ; put sum back jmp short atoi2 ; and continue loop atoi1: cmp al,'9' ja atoi5 ; out of range, fail cmp al,'0' jb atoi5 xchg al,bl ; put sum back into al mul ten ; shift one digit sub bl,'0' ; convert to binary add ax,bx ; add to sum mov tmp,1 ; Got some legal input. [27f] atoi2: loop atoi0 ; loop thru all chars cmp tmp,0 ; Anything besides spaces? [27f] je atoi4 ; No so fail. [27f] jmp rskp atoi4: mov dx,offset erms23 ; complain and return ret atoi5: mov dx,offset erms25 ; Input must be numeric ret ATOI ENDP ; addition for capture of raw output setcpt proc near test flags.capflg,0FFH jz setcp1 ; no capture file, keep going mov dx,offset erms24 jmp reterr setcp1: mov comand.cmcr,0 ; Filename must be specified. mov ah,cmifi mov dx,offset cptfcb mov bx,offset filhlp call comnd jmp r mov ah,cmcfm call comnd ; confirm with carriage return jmp r mov ah,delf mov dx,offset cptfcb int dos ; open up file mov ah,makef mov dx,offset cptfcb int dos mov cptfcb+32,0 call inicpt ; init capture variables mov flags.capflg,0FFH ; know we have capture routine jmp rskp ; and return setcpt endp ; Jumping to this location is like retskp. It assumes the instruction ; after the call is a jmp addr. RSKP PROC NEAR pop bp add bp,3 push bp ret RSKP ENDP ; Jumping here is the same as a ret. R PROC NEAR ret R ENDP ; routine to print an error message, then retskp ; expects message in dx reterr proc near mov ah,prstr int dos jmp rskp reterr endp code ends end